home *** CD-ROM | disk | FTP | other *** search
/ Express Pd: GALORE / Express Pd Galore - The Amiga PD & Shareware CD (1994)(Express Pd)[!][Amiga-CD32-CDTV].iso / productivity / recall / unstall / unstallme! next >
Text File  |  1994-04-28  |  6KB  |  247 lines
  1. ; A simple script which removes the Recall-package from your harddisk
  2.  
  3. (set #programmer        "© 1993 Ketil Hunn")
  4. (set #version                "V2.3")
  5.  
  6. (set RECALL                    "Recall")
  7. (set RECALLPREFS        (cat RECALL            " Preferences"))
  8. (set RECALL.PREFS        (cat RECALL            ".prefs"))
  9. (set RECALLGUIDE        (cat RECALL            ".guide"))
  10. (set RECALLASCII        (cat RECALL         ".ASCII"))
  11. (set CONVERTER            "ReConvert")
  12. (set CONVERTERGUIDE    (cat CONVERTER    ".guide"))
  13. (set CONVERTERASCII    (cat CONVERTER    ".ASCII"))
  14.  
  15. (set #Mainprog            (cat    "SYS:WBStartup/" RECALL))
  16. (set #Prefsprog            (cat    "SYS:Prefs/" RECALL))
  17. (set #Project                (cat    "ENVARC:" RECALL ".prefs"))
  18. (set #Convprog            (cat    "SYS:Tools/" CONVERTER)) 
  19. (set #recguide            (cat    RECALL ".guide"))
  20. (set #convguide            (cat    CONVERTER ".guide"))
  21. (set #recascii            (cat    RECALL ".ASCII"))
  22. (set #convascii            (cat    CONVERTER ".ASCII"))
  23. (set @default-dest    "SYS:")
  24. (set guidedest            "HELP:English/")
  25. (set docdest                "DOCS:")
  26.  
  27. (set mainsize             (getsize #Mainprog))
  28. (set prefssize         (getsize #Prefsprog))
  29. (set convsize             (getsize #Convprog))
  30. (set projectsize    (getsize #Project))
  31. (set guidesize         (getsize #recguide))
  32. (set guidesize         (getsize #convguide))
  33. (set asciisize         (getsize #recascii))
  34. (set asciisize         (getsize #convascii))
  35.  
  36. (set done (+ mainsize prefssize convsize projectsize recguidesize recasciisize))
  37.  
  38. (complete 0)
  39.  
  40. (message    "This script will remove any copy of components of the "
  41.                     RECALL "-utility from your harddisk.\n\n"
  42.                     "Please press 'Proceed' to bring up the menu in which you "
  43.                     "select which parts of the " RECALL "-package you will remove.\n\n"
  44.                     "Please take no notice of all occurences of the word 'Install' "
  45.                     "throughout this script.  That word cannot be changed since it "
  46.                     "resides inside the Commodore's Installer-utility.  (I guess they "
  47.                     "never thought that Installer could be of much use other than to "
  48.                     "install programs :·( )"
  49. )
  50.  
  51. (set progs
  52.     (askoptions
  53.         (help            @askoptions-help)
  54.         (prompt        "Select parts to remove:")
  55.         (choices    RECALL
  56.                             RECALLPREFS
  57.                             RECALL.PREFS
  58.                             RECALLGUIDE
  59.                             RECALLASCII
  60.                             CONVERTER
  61.                             CONVERTERGUIDE
  62.                             CONVERTERASCII
  63.             (default    0)
  64.       )
  65.     )
  66. )
  67.  
  68. (set languages
  69.     (askoptions
  70.         (prompt        "Select languages to remove:")
  71.         (help            @askoptions-help)
  72.         (choices    "Norsk"
  73.                             "Deutsch"
  74.                             "Nederlands"
  75.                             "Italiano"
  76.                             "Suomi"
  77.             (default 0)
  78.       )
  79.     )
  80. )
  81.  
  82. ; ****** RECALL *****
  83. (if (IN progs 0)
  84.     (
  85.         (delete (#Mainprog)
  86.                         (prompt (cat "About to delete " #Mainprog))
  87.                         (help        @delete-help)
  88.                         (confirm)
  89.                         (infos)
  90.         )
  91.     )
  92. )
  93. (complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
  94.  
  95. ; ****** RECALL PREFERENCES *****
  96. (if (IN progs 1)
  97.     (
  98.         (delete (#Prefsprog)
  99.                         (prompt (cat "About to delete " #Prefsprog))
  100.                         (help        @delete-help)
  101.                         (confirm)
  102.                         (infos)
  103.         )
  104.     )
  105. )
  106. (complete (/ (* (set sofar (+ sofar prefssize)) 100) done))
  107.  
  108. ; ****** RECALL.PREFS *****
  109. (if (IN progs 2)
  110.     (
  111.         (delete (#Project)
  112.                         (prompt (cat "About to delete " #Project))
  113.                         (help        @delete-help)
  114.                         (confirm)
  115.                         (infos)
  116.         )
  117.     )
  118. )
  119. (complete (/ (* (set sofar (+ sofar projectsize)) 100) done))
  120.  
  121. ; ****** RECALL.GUIDE *****
  122. (if (IN progs 3)
  123.     (
  124.         (set guidedest
  125.             (askdir
  126.                 (prompt        "Select disk or drawer where Recall Amigaguide-document resides:")
  127.                 (help            @askdir-help)
  128.                 (default    "HELP:english/")
  129.             )
  130.         )
  131.         (delete (tackon guidedest #recguide)
  132.                         (prompt (cat "About to delete " guidedest #recguide))
  133.                         (help        @delete-help)
  134.                         (confirm)
  135.                         (infos)
  136.         )
  137.         (complete (/ (* (set sofar (+ sofar recguidesize)) 100) done))
  138.     )
  139. )
  140.  
  141. ; ****** RECALL.ASCII *****
  142. (if (IN progs 4)
  143.     (
  144.         (set docdest
  145.             (askdir
  146.                 (prompt        "Select disk or drawer where Recall ASCII-document resides:")
  147.                 (help            @askdir-help)
  148.                 (default    "Docs:")
  149.             )
  150.         )
  151.         (delete (tackon docdest #recascii)
  152.                         (prompt (cat "About to delete " docdest #recascii))
  153.                         (help        @delete-help)
  154.                         (confirm)
  155.                         (infos)
  156.         )
  157.         (complete (/ (* (set sofar (+ sofar recasciisize)) 100) done))
  158.     )
  159. )
  160.  
  161. ; ****** CONVERTER *****
  162. (if (IN progs 5)
  163.     (
  164.         (delete (#Convprog)
  165.                         (prompt (cat "About to delete " #Convprog))
  166.                         (help        @delete-help)
  167.                         (confirm)
  168.                         (infos)
  169.         )
  170.     )
  171. )
  172. (complete (/ (* (set sofar (+ sofar convsize)) 100) done))
  173.  
  174. ; ****** CONVERTER.GUIDE *****
  175. (if (IN progs 6)
  176.     (
  177.         (set guidedest
  178.             (askdir
  179.                 (prompt        "Select disk or drawer where Converter Amigaguide-document resides:")
  180.                 (help            @askdir-help)
  181.                 (default    guidedest)
  182.             )
  183.         )
  184.         (delete (tackon guidedest #convguide)
  185.                         (prompt (cat "About to delete " guidedest #convguide))
  186.                         (help        @delete-help)
  187.                         (confirm)
  188.                         (infos)
  189.         )
  190.         (complete (/ (* (set sofar (+ sofar convguidesize)) 100) done))
  191.     )
  192. )
  193.  
  194. ; ****** CONVERTER.ASCII *****
  195. (if (IN progs 7)
  196.     (
  197.         (set docdest
  198.             (askdir
  199.                 (prompt        "Select disk or drawer where Converter ASCII-document resides:")
  200.                 (help            @askdir-help)
  201.                 (default    docdest)
  202.             )
  203.         )
  204.         (delete (tackon docdest #convascii)
  205.                         (prompt (cat "About to delete " docdest #convascii))
  206.                         (help        @delete-help)
  207.                         (confirm)
  208.                         (infos)
  209.         )
  210.         (complete (/ (* (set sofar (+ sofar convasciisize)) 100) done))
  211.     )
  212. )
  213.  
  214. (if (IN languages 0)
  215.     (
  216.         (run (cat "c:delete LOCALE:catalogs/Norsk/Recall all"))
  217.     )
  218. )
  219.  
  220. (if (IN languages 1)
  221.     (
  222.         (run (cat "c:delete LOCALE:catalogs/Deutsch/Recall all"))
  223.     )
  224. )
  225.  
  226. (if (IN languages 2)
  227.     (
  228.         (run (cat "c:delete LOCALE:catalogs/Nederlands/Recall all"))
  229.     )
  230. )
  231.  
  232. (if (IN languages 3)
  233.     (
  234.         (run (cat "c:delete LOCALE:catalogs/Italiano/Recall all"))
  235.     )
  236. )
  237.  
  238. (if (IN languages 4)
  239.     (
  240.         (run (cat "c:delete LOCALE:catalogs/Suomi/Recall all"))
  241.     )
  242. )
  243.  
  244. (complete 100)
  245.  
  246. (message    RECALL " is now removed from your " default-dest "-partition!")
  247.